home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Sample Code / Pascal Sample 3.0B10 / Source / Print.p < prev    next >
Encoding:
Text File  |  1993-10-13  |  3.2 KB  |  87 lines  |  [TEXT/MPS ]
  1. (******************************************************************************
  2. *
  3. *    Apple Macintosh Developer Technical Support
  4. *
  5. *    Interface for the printing routines
  6. *
  7. *    Program:    Sample 3.0
  8. *    FILE:        Print.p - Pascal implementation
  9. *
  10. *    by:            Matt Deatherage
  11. *                Based on a story by Pete 'Luke' Alexander
  12. *
  13. *    Copyright © 1988-1993 Apple Computer, Inc.
  14. *    All rights reserved.
  15. *
  16. *******************************************************************************
  17. * 
  18. * This unit contains code based on Macintosh Technical Note "A Printing Loop
  19. * That Cares...", which shows a canonical example of how to print on the
  20. * Macintosh.
  21. * 
  22. ******************************************************************************)
  23.  
  24. UNIT PrintStuff; { printing unit based on Luke's caring print loop }
  25.  
  26. INTERFACE
  27.  
  28. (*******************************************************************************
  29. * Used Units
  30. *******************************************************************************)
  31.  
  32. USES Resources, PrintTraps, Packages, AppleTalk, Processes, PPCToolbox, EPPC,
  33.      Notification, AppleEvents, SampleUtilities, TrafficLights;
  34.  
  35. (*******************************************************************************
  36. * Constants
  37. *******************************************************************************)
  38.  
  39. CONST
  40.  
  41.     rPrintingError = 3000;         { Alert saying there was a problem }
  42.  
  43. (*******************************************************************************
  44. *
  45. * Print - make a window or Picture show up on paper
  46. *
  47. * This routine's four parameters allow it to flexibly print windows or
  48. * pictures, with or without PrJobMerge.  The first parameter is this document's
  49. * print record, containing all of its user-specified options in "Page Setup."
  50. * The second parameter is a pointer to a window to be printed.  If this
  51. * parameter is NIL, the third parameter must be a PicHandle (the third
  52. * parameter is ignored otherwise).  The fourth parameter, if not NIL, is
  53. * merged with the first parameter using PrJobMerge.  This lets us get job-
  54. * specific parameters once and print several documents with them.
  55. *
  56. * If the document is larger than one page, it is tiled across several pages
  57. * in drawing-program style.
  58. *
  59. * The returned value indicates whether or not printing was succesful.
  60. *
  61. * The second, third and fourth parameters are all ignored if NIL, but if the
  62. * second parameter is NIL, we'll pass the third parameter to DrawPicture.
  63. *
  64. *******************************************************************************)
  65.  
  66. FUNCTION Print(thePrRecHdl: THPrint; theWindow: WindowPtr; thePict: PicHandle;
  67.                theMergeRec: THPrint): BOOLEAN;
  68.  
  69. (*******************************************************************************
  70. *
  71. * PageSetup - get document-specific formatting options from the user
  72. *
  73. * This routine asks the user to set parameters about the current document,
  74. * including page size, orientation and other "Page Setup..." goodies, using
  75. * the standard Macintosh printing dialogs.  The returned value indicates
  76. * whether or not the user accepted the dialog or not.
  77. *
  78. *******************************************************************************)
  79.  
  80. FUNCTION PageSetup(thePrRecHdl: THPrint): BOOLEAN;
  81.  
  82. IMPLEMENTATION
  83.  
  84. {$I print.inc1.p}
  85.  
  86. END. { unit PrintStuff }
  87.